90 REM <CTRL-M><CTRL-M>==================<CTRL-M>MAGIC PACK<CTRL-M>BY BERT KERSEY<CTRL-M>COPYRIGHT (C) 1980<CTRL-M>BEAGLE BROS<CTRL-M>==================
100 FOR I = 1 TO 40:A$ = A$ +".": NEXT : TEXT : HOME : FOR I = 1 TO 22: PRINT A$;: NEXT : VTAB 8
101 INVERSE : CALL -868: PRINT " MAGIC PACK ": NORMAL : FOR I = 1 TO 40: PRINT "-";: NEXT : PRINT "HELLO. PLEASE FOLLOW THE INSTRUCTIONS INTHE MANUAL, OR THE FOLLOWING TRICKS WILLNOT WORK PROPERLY (EVEN THOUGH THEY WILLAPPEAR TO BE WORKING).";
102 CALL -868: PRINT : PRINT "------": VTAB 24: PRINT "HIT ANY KEY TO START MAGIC PACK:";: GET A$: PRINT A$;
140 GOSUB 32000: ONERR GOTO 63900
142 GOTO 240
170 REM <CTRL-M><CTRL-M>MENU:<CTRL-M>-----
180 IF II = 2 THEN 182
181 FOR I = 22 TO J STEP -1: VTAB I: PRINT A$: CALL -868
525 VTAB 7: HTAB 7: FLASH : PRINT " ";: NORMAL : PRINT "(HIT ANY KEY WHEN READY.)"
526 K = PEEK(Q): IF K <129 THEN 526
527 POKE Q +16,0: IF K = 129 THEN CHEET = 1: REM K=ASC(CTRL-A)
529 VTAB 7: CALL -958:J = 0
530 J = J +1:TURN = TURN +1: IF TURN >21 THEN TURN = 21
535 INVERSE : VTAB 3 +TURN: HTAB 1: IF J <10 THEN PRINT " ";
537 PRINT J;".";
540 FOR I = 1 TO 9
550 POKE 0,20 -2 *I +J *9
560 POKE 1,4
570 CALL MU
580 NEXT I
585 NORMAL : VTAB 3 +TURN: HTAB 1: IF J <10 THEN PRINT " ";
586 PRINT J;".";
588 A(J) = INT( RND(1) *70) +1: IF B(A(J)) = 1 THEN 588
593 B(A(J)) = 1:B = B +1: IF A(J) >50 THEN 596
594 ON A(J) GOSUB 601,602,603,604,605,606,607,608,609,610,611,612,613,614,615,616,617,618,619,620,621,622,623,624,625,626,627,628,629,630,631,632,633,634,635,636,637,638,639,640,641,642,643,644,645,646,647,648,649,650
595 GOTO 597
596 A(J) = A(J) -50: ON A(J) GOSUB 651,652,653,654,655,656,657,658,659,660,661,662,663,664,665,666,667,668,669,670